﻿Imports System.Data.OleDb
Partial Public Class List
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub


    Private Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Response.Redirect("rss.aspx")
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Search_btn.Click
        'Dim con As New OleDbConnection(ConfigurationManager.ConnectionStrings("PetsConnectionString").ToString())
        'Try
        '    con.Open()

        '    Dim oledbcmd As New OleDbCommand(

        '    Dim dr As OleDbDataReader = oledbcmd.ExecuteReader()
        '    If dr.HasRows Then
        '        While dr.Read()

        '        End While
        '    End If

        'Catch ex As Exception
        'End Try
        'Me.GridView1.
        '    Me.GridView1.DataSourceID = String.Empty
        Me.GridView2.Visible = True
        Me.GridView1.Visible = False
        Me.SqlDataSource1.SelectCommand = "SELECT * FROM [newSearchingAccordingtotags] WHERE ([TagID] = " & Me.DropDownList1.SelectedValue & ")"



    End Sub

 
    Protected Sub Show_all_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Show_all.Click
        Me.GridView1.Visible = True
        Me.GridView2.Visible = False
    End Sub
End Class